home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 75 / 075.d81 / magaziner boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  862b  |  23 lines
  1. 10 print"[147]":gosub70
  2. 20 poke 53281,0:poke 53280,0:poke2043,8
  3. 30 print"[144]":print""
  4. 40 print "load";chr$(34);f$;chr$(34)",8"
  5. 50 print"run"
  6. 60 poke631,13:poke632,13:poke198,2:end
  7. 70 poke53280,0:poke53281,0:iffthenreturn
  8. 80 print"[147][159][176][178][178][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][178][178][178][174]";
  9. 90 a$="[171][156][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  10. 100 b$="[171][154][219][219][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][192][219][219][219][219][179]"
  11. 110 c$="[221][221][221][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221][221][221][221][221]"
  12. 120 printc$;:fori=1to3:printa$c$b$c$;:next
  13. 130 print"[173][177][177][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][177][177][177][189]";
  14. 140 fori=217to242:pokei,peek(i)or128:next
  15. 150 a$=" [155][157][163][157] [157] [157] [157] [157] [157] [157][151][163][145][145][145][145][145][145][145][145]"
  16. 160 poke214,12:print"[145]";:fori=1to33:printa$;:next:print"[155]"
  17. 170 fori=1to5:reada$:gosub180:next:goto190
  18. 180 printspc(20-len(a$)/2)""a$:a$="":return
  19. 190 f$="magaziner":poke214,24:print"[145]"spc(13)"[204] [207] [193] [196] [201] [206] [199]":return
  20. 200 data"[205] [193][160][199] [193] [218] [201] [206] [197] [210]","by [205]aurice [202]eter and [202]eff [202]ones
  21. 210 [131]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #71","(NULL)ubscriptions 1-800-831-2694"
  22. 220 [131]"lenopyright (len) 1990 (NULL)oftdisk"
  23.